home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
fido
/
tdisp11.lha
/
TrapDispatcher
/
Rexx
/
IntuiNode.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-11-15
|
2KB
|
90 lines
/*
IntuiNode.rexx 3.0
This is actually the third version of the same program. The first version
was made in C and I used in in the (good?) old 1.3 days in PointManager.
Then Spot came and I rewrote it in ARexx and used Spot's ARexx commands
for requesters. This time it is made for TrapDispatcher and uses the
very good rexxreqtools.library.
You can of course also use this script with any other program if you
want to...
Thanks to Nico Franτois for reqtools.library and to Rafael D'Halleweyn
for the rexxreqtools.library.
*/
/* Change these to suit your system */
pubscreen = "TRAPDOOR"
nodelistdir = "NODELIST:"
/* Real script starts here */
IF ~SHOW(Libraries,'traplist.library') THEN
IF ~ADDLIB("traplist.library",0,-30,0) THEN EXIT
IF ~SHOW(Libraries,'rexxreqtools.library') THEN
IF ~ADDLIB("rexxreqtools.library",0,-30,0) THEN EXIT
cr='0a'x
options results
node=""
call asknode
res=FindNode(node,"All",nodelistdir)
do forever
parse var res error" "nod","sysop","name","phone","city","password","baud","cost","region","hub","flags
parse var node zone":"net"/"nod"."point
if point="" then point="0"
if left(res,1)=="0" then do
string="Node "node" not found"
title="IntuiNode.rexx Error"
end
else do
string=" Name: " || left(name,40) || cr || "Sysop: " || left(sysop,22) || "City: " || city || cr || "Phone: " || left(phone,22) || "Baud: " || baud || cr || "Flags: " || flags
title="Node "node
end
if point==0 then do
gads="_New node|_Quit"
end
else do
gads="_New node|_Boss|_Quit"
end
resp=rtezrequest(string,gads,title,"rt_pubscrname=" || pubscreen)
if resp=0 then do
exit
end
else if resp=1 then do
call asknode
res = FindNode(node,"All",nodelistdir)
end
else if resp=2 then do
point=0
node=zone":"net"/"nod"."point
res=FindNode(node,"All",nodelistdir)
end
end
asknode:
node=rtgetstring(node,,"Enter a node number",,"rt_pubscrname=" || pubscreen)
if node=="" | rc==5 then do
exit
end
return